12) Transponovati kvadratnu matricu A


Sub zad12()
Dim a(100, 100) As Double, i As Long, j As Long, pom As Double
n = Cells(1, 1)
For i = 1 To n
 For j = 1 To n
 a(i, j) = Cells(i + 1, j)
 Next
 Next
 For i = 1 To n
  For j = 1 To n
  pom = a(i, j)
  a(i, j) = a(j, i)
  a(j, i) = pom
  Next
  Next
  For i = 1 To n
   For j = 1 To n
   Cells(i + 1, j) = a(j, i)
  Next
  Next
End Sub